(defun show-one-path(path)
  (insert path "\n"))
(defun show-load-path()
  (mapcar 'show-one-path load-path))
